df <- readRDS(here("data", "STU_QQQ_5.rds"))
df %>% head()
df %>% reframe(across(where(is.labelled), print_labels))
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
Labels:
df
library(janitor)
df %>%
filter(CNT == "IRL") %>%
haven::as_factor() %>% # changes to its value
remove_empty() %>% # rows and columns
remove_constant() -> dfI
value for "which" not specified, defaulting to c("rows", "cols")
dfI
if(TRUE){
dfI |> SmartEDA::ExpReport(op_file="temp.html")
}
processing file: report_tmp_1.Rmd
|
| | 0%
|
|... | 3%
|
|..... | 6% (setup)
|
|........ | 10%
|
|.......... | 13% (od_1)
|
|............. | 16%
|
|............... | 19% (od_2)
|
|.................. | 23%
|
|.................... | 26% (od_3)
|
|....................... | 29%
|
|......................... | 32% (od_32)
|
|............................ | 35%
|
|.............................. | 39% (snv_all)
|
|................................. | 42%
|
|................................... | 45% (snv_2)
|
|...................................... | 48%
|
|........................................ | 52% (snv_2.1)
|
|........................................... | 55%
|
|............................................. | 58% (snv2_new)
|
|................................................ | 61%
|
|.................................................. | 65% (snv2)
|
|..................................................... | 68%
|
|....................................................... | 71% (snv22_1)
|
|.......................................................... | 74%
|
|............................................................ | 77% (eda_4)
|
|............................................................... | 81%
|
|................................................................. | 84% (e4.1)
|
|.................................................................... | 87%
|
|...................................................................... | 90% (e4.1.1)
|
|......................................................................... | 94%
|
|........................................................................... | 97% (bp1)
|
|..............................................................................| 100%
"C:/Users/Plancha/scoop/shims/pandoc" +RTS -K512m -RTS "C:/Users/Plancha/Desktop/projeto-mans/notebooks/pca/report_tmp_1.knit.md" --to html4 --from markdown+autolink_bare_uris+tex_math_single_backslash --output pandoc165c2d1f31df.html --lua-filter "C:\Users\Plancha\AppData\Local\R\win-library\4.3\rmarkdown\rmarkdown\lua\pagebreak.lua" --lua-filter "C:\Users\Plancha\AppData\Local\R\win-library\4.3\rmarkdown\rmarkdown\lua\latex-div.lua" --embed-resources --standalone --variable bs3=TRUE --section-divs --table-of-contents --toc-depth 6 --template "C:\Users\Plancha\AppData\Local\R\win-library\4.3\rmarkdown\rmd\h\default.html" --no-highlight --variable highlightjs=1 --variable theme=cerulean --mathjax --variable "mathjax-url=https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" --include-in-header "C:\Users\Plancha\AppData\Local\Temp\RtmpuyuDrY\rmarkdown-str165c394039a7.html"
dfI %>% write_rds(here("data", "filtered.rds"))
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmRmIDwtIHJlYWRSRFMoaGVyZSgiZGF0YSIsICJTVFVfUVFRXzUucmRzIikpDQpkZiAlPiUgaGVhZCgpDQpgYGANCg0KYGBge3J9DQpkZiAlPiUgcmVmcmFtZShhY3Jvc3Mod2hlcmUoaXMubGFiZWxsZWQpLCBwcmludF9sYWJlbHMpKQ0KYGBgDQoNCmBgYHtyfQ0KZGYNCmBgYA0KDQoNCmBgYHtyfQ0KbGlicmFyeShqYW5pdG9yKQ0KZGYgJT4lIA0KICBmaWx0ZXIoQ05UID09ICJJUkwiKSAlPiUgDQogIGhhdmVuOjphc19mYWN0b3IoKSAlPiUgIyBjaGFuZ2VzIHRvIGl0cyB2YWx1ZQ0KICByZW1vdmVfZW1wdHkoKSAlPiUgIyByb3dzIGFuZCBjb2x1bW5zDQogIHJlbW92ZV9jb25zdGFudCgpIC0+IGRmSQ0KZGZJDQpgYGANCg0KDQpgYGB7cn0NCmlmKFRSVUUpew0KICBkZkkgfD4gU21hcnRFREE6OkV4cFJlcG9ydChvcF9maWxlPSJ0ZW1wLmh0bWwiKQ0KfQ0KYGBgDQoNCmBgYHtyfQ0KZGZJICU+JSB3cml0ZV9yZHMoaGVyZSgiZGF0YSIsICJmaWx0ZXJlZC5yZHMiKSkNCmBgYA0K